Top 10k strings from Educational Compilation 09 (19xx)(-)(ru).trd in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Utilities & Educational - [TRD] (TOSEC-v2007-01-01) /
Back to the directory listing
12
10
6 ;"NAJMITE L%BU% KLAVIQU";
6 ;` (
6 '` (
6 #` (
6 (
6 (
6
5 z$="Fractions":
5 nij dowolny klawisz
5 LQ-.0130125
5 ;"* *";
5 ;" ":
4 yesno=9200
4 instructions
4 EP=(23.452294
4 By P.W.Cooke
4 ;"matrix 2:":
4 ;"----------------"
4 ;"******************************";
4 ;" "
4 ))+" is bigger"
4 "Otwet=";z
4 PRESS ANY LETTER TO CONTINUE"
4 #
4 /
4 !
4 ?
4
3 tt,ZE;F$;F$;
3 jjjjjjjjjjjjjjj
3 IREK,MAREK:
3 ;Y;" ";M;" ";
3 ;"matrix:":
3 ;"matrix 1:":
3 ;"cannot be inverted":
3 ;"********************************";
3 *WSUN*P1/180
3 (WSUNT*P1/180
3 (MSUN*P1/180
3 "
3
3
2 zU2a|*T-164E-8
2 zU2a|*T-1.64E-6
2 z$=z$+y$(TW
2 z$=("Perfect !!! Well done."
2 z$="Your score is "+
2 z$="You must say which of the two"+
2 z$="They are both the same"
2 z$="The computer will draw a grid"+
2 z$="Question"+
2 z$="Instructions for Fractions":
2 z$="In this program the computer"+
2 z$="In each question you will see"+
2 y y6yLybyxy
2 w*T/W+.11184
2 title=9000
2 t333)/J1):
2 t$="pvshpsV"
2 sta utohnite dann{e":
2 snum=snum+1
2 seescore=3000
2 score=score+1
2 score+" out of 5":
2 play one question
2 o/W+559.976
2 n*T/W+.04675
2 n$(n(n));" ";
2 m$(a),m(a):
2 loop=loop+1
2 loop=delay*6
2 loop=delay*4
2 loop=delay*2
2 loop<delay*6
2 loop<delay*4
2 loop<delay*2
2 level=level-1
2 level=level+1
2 j*T*T*T/W:
2 instructions=7000
2 i$="P+++++++++++++++S----------------"
2 hs/W+662.673
2 fractions program
2 fill it in
2 f(n)=n(n)/d(n):
2 f$="P++++++++++S-----------":
2 enter=9100
2 e=e+a(i,k)*b(k,j):
2 e=a(i,j)-b(i,j)
2 e=a(i,j)+b(i,j)
2 e=a(i,j)*n
2 difficulty level
2 decides how slow messages are given
2 d$(d(n),n(n)):
2 clear=9400
2 c$="P+++++++++++++S-------------":
2 box 1 and 2 (num1 /denom2
2 b(i,j)=a(i,r+j)
2 b(i,j)=a(i,d+j)
2 a=a+1900
2 a(i,j)=a(i,r+j)
2 a(i,j)=a(i,d+j)
2 a(i,d+j)=e
2 a$="vtornik":
2 a$="voskresen":
2 a$="subbota":
2 a$="sreda":
2 a$="pytnica":
2 a$="ponedel|n":
2 a$="hetverg":
2 ` '
2 ` /
2 `
2 ________________________
2 WA5=W5+180
2 UVfg*T/W+.0626
2 UNIVERSITY SOFTWARE
2 T=(JD-2415020
2 S=DS+L+C+(134
2 RR1=-412178.4
2 RASUN=RASUN+180
2 R+445267.1142
2 R%*T/W+.11148
2 PNEGO SPOTKANIA! "
2 MEz_*T/W+.1084
2 MATRIX OPERATIONS
2 M=358.47583
2 M+(.020094
2 LO3=(LO2+LO1)/2
2 LA3=(LA2+LA1)/2
2 L=279.69668
2 JD=JD+ODST:
2 JD=C+E+D+1720994.5
2 J5=36524.25
2 J3=2299160
2 J2=30.6001
2 I;" "
2 HS2=HS2+HS12
2 HS2/V3*J*T
2 HS1=HS1+HS11
2 HS12=3.6141
2 HS11=.82276
2 HPress any key to play.
2 HOne or two players?
2 HK=.01720209895
2 HGame over
2 HD2=E2+L2:
2 GM=109.862
2 G4+(2237.71
2 G4+(-2820938
2 G2=(L2-P2)*J
2 G2+(11.995
2 G+22518.7541
2 EP=EP+(.00256
2 EDITED BY SERGIO
2 E=.01675104
2 E4=E4+.0043
2 E4=((38450.89
2 E2=((2813.72
2 E1=((84377.71
2 DS=-(.00569
2 C=((1.91946
2 AL3=AL3+24
2 AL3=AL3+12
2 A$=" ":
2 @!
2 >-1934.142
2 ;suma/gry;
2 ;r2;" - ";m$(m2):
2 ;f$'c$'i$;
2 ;dZ/W+277.557
2 ;d2;".";m2;".";r2;
2 ;d1;".";m1;".";r1;
2 ;"your answer is ";i$
2 ;"so ";a$;" is the right answer !":
2 ;"matrix X scalar:"
2 ;"matrix 1:"
2 ;"matrix 1 X matrix 2:"
2 ;"matrix 1 - matrix 2:"
2 ;"matrix 1 + matrix 2:"
2 ;"Which is bigger";
2 ;"V{ projili dne
2 ;"The radius of the";
2 ;"RISUEM GRAFIK BIORITMOV ? (a/n) "
2 ;"Prodoljat| dal|qe ? (a/n) z=PEHAT~"
2 ;"Press any key":
2 ;"Please type in your name"'"then press
2 ;"PROGRAMMA OBUHENIY SHETU DO 20":
2 ;"PRAVIL~NO"
2 ;"NEPRAVIL~NO,":
2 ;"MOLODEC":
2 ;"Hello ";n$;''''"Do you want instructions"'"on how to play fractions ?"'"(press
2 ;"GndRange"
2 ;"Do you want to play Fractions"'"again ? (press
2 ;"Do you want to RUN the program"'"again from the start ?"'"(press
2 ;"C They are both the same"
2 ;"B ";n(2
2 ;"A ";n(1
2 ;"1234567890123456789012345678901"
2 ;"***********************";
2 ;"****** JESTE
2 ;"(";o$;")";
2 ;"(";e$;")";
2 ;" DO NAST
2 ;" ";b$;"! ";
2 ;" RIGHT !!! WELL DONE. "
2 ;" "
2 ;" NO !!! "
2 ;" "
2 9z -4.18E-5
2 888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
2 7L/W+323.946
2 33+65928.7155
2 0/W+6891011.733
2 0*T-1.4E-5
2 0 #
2 /d(n)),159
2 /W+506.893
2 /W+426.675
2 /W+21066916.288
2 ,"sentybr|",30
2 ,"oktybr|",31
2 ,"noybr|",30
2 ,"mart",31
2 ,"i&n|",30
2 ,"i&l|",31
2 ,"fevral|",28
2 ,"dekabr|",31
2 ,"avgust",31
2 ,"aprel|",30
2 +HPlayer One
2 +45037.5082
2 +32964.3577
2 +1.91398591
2 +"will give you five questions":
2 +"two fractions.":
2 +"to help you if you are stuck.":
2 +"start again."
2 +"is the BIGGER.":
2 *b)+c-621049
2 *T/W-.3515
2 *T/W-.0066
2 *T/W-.0005
2 *T/W-.00035
2 *T/W+.1476
2 *T/W+.1061
2 *T/W+.00454
2 *T-1.26E-7
2 *T+W*(T3-T4)-1.5E-4
2 *T+W*(T3-T4)+.0003025
2 *T+(-87878.82
2 *T+(-40391671
2 *T*T/W-.00192
2 *T*T/W-.00043
2 *T*T-3.3E-6
2 *T*T+503E-9
2 *T*T+5.03E-7
2 *T)-(296214
2 *MSUN*P1/180
2 *M)+.000293
2 *GM))*2.3025851E-9
2 *G4)+(180.555
2 *G4)+(16.649
2 *G4)+(1.651
2 *G4)+(-2481
2 *G4)+(-248071
2 *G4)+(-24117
2 *G2)+(.071
2 *G1)-28.74
2 *G1)+(82.56
2 *G1)+(4.37
2 *G1)+(381.14
2 *G1)+(1892.1
2 *G1)+(18.72
2 *G1)+(-548.05
2 *G1)+(-2579.08
2 *G1)+(-123.22
2 *DZ3/P1/6378
2 *(n(n)/d(n)),0
2 *(JD-2396758.2035
2 )+("Well done. Not a bad score. "
2 )+("Very good score!"
2 )+("Three"
2 )+("Third"
2 )+("Tenth"
2 )+("Sixth"
2 )+("Seventh"
2 )+("Seven"
2 )+("Quarter"
2 )+("Oh dear. Perhaps you had better"++
2 )+("Not bad at all !"
2 )+("Ninth"
2 )+("I think you can do better !"
2 )+("Fifth"
2 )+("Eighth"
2 )+("Eight"
2 (b(i,j)*1e6
2 (a(i,j)*1e6
2 (LA3*P0))*(
2 (L5*P0))/(
2 (L5*P0))+(
2 (L5*P0))*(
2 (KS*KS+ET*ET+DZ*DZ)
2 (KS*KS+ET*ET))/J
2 (HS1)/V3*J*T
2 (G1)+(10732.78
2 (G1)+(-13416.31
2 (DIF*P0)))
2 (DA-D4)*60
2 (D0-DE4)*60
2 (ALT*P0))*(
2 (-DZ1*DZ1+1
2 ((L4-O4+E4)*J))
2 ((L2-O2+E2)*J)/
2 ((L2-O2+E2)*J))
2 ((L1-O1+E1)*J)/
2 ((L1-O1+E1)*J))
2 ((I-1867216.25
2 ((C-E)/J2)
2 ((AL5-AL6)*600
2 ((AF-AH)*600
2 ((9.85933745
2 ((183842496
2 ("matrix elements:"," row ";(i);",column ";(j);": ");x:
2 ("choose no of new matrix(1/2): ");m
2 '"No. O.K. then"''"Bye.":
2 & " c !
2 $tT*T*T/W:
2 #/W+53810665.48
2 "ynvar|",31
2 "pol.litery"
2 "otvet do posadki":
2 "Vaqe imy :";b$'"Data rojdeniy :"'"Den| : ";c'"Mesyc : ";b'"God : 19";a:
2 "SKOL~KO STALO FIGUR ?",U
2 "ROBOTA na ZEML%":
2 "Enter z to copy,c for another operation with resultant matrix,r for another problem,s to stop";
2 "Data rashetov: "'"Den| : ";c'"Mesyc : ";b'"God : 19";a:
2 !c}6F##60#
2 to start the game":
2 RECLY COMPUTER COMPANY
2 3p # "
2 1983
2 bBBC ?
2 8 @
2 4$$& ?
2 #BB` #
2 .X #
2 ,8 ?
2 cp #3
2 c #3
2 /
2 #
2 (
2 '
2 $
2 # 0
2 #
2 "
2 !
2 (
2 8
2 $
2 #
2 x 0
2 #
2 ?
2 >
2 /
2 &
2 !
2 8 A
2 | "
2 t "
2 < !
2 !
2
2
2
2
1 |Sb'*td-3.762863
1 |*TJC*TJC*TJC
1 zywania: w jednej"''"wersji w kratki krzy
1 znaki i obliczenia
1 ze;'"Press ""E"" for an explanation"
1 ze,n4;A$+" "+T$
1 zanie otrzymasz dodatkowo"''"1000 punkt
1 zanie gotowe
1 zania krzy
1 z(j)=z(j)-360
1 z(a)=z(a)-360
1 z(a)=z(a)+360
1 z(a)=c(k,a):
1 z(a)=c(a,k):
1 z(a)=a(k,a):
1 z(a)=a(a,k):
1 z(a)=a(a):
1 z$=z$+y$(tw
1 z$="Fractions"
1 z$(a)=g$(a+12
1 ynvar| fevral| mart aprel| mai i&n| i&l| avgust sentybr|oktybr| noybr| dekabr|
1 y=m*sy+zy:
1 y"''"poprawne."
1 x=((6.6460656
1 x;":";y;"=";
1 x;"-";y;"=";
1 x;"+";y;"=";
1 x;"*";y;"=";
1 wka ma dwie"''"wersje o zbli
1 wWPWWPWWPWWp
1 w=a(k,m)+a(i,m):
1 w "''"za szybko
1 vshpsVpvshpsVpvshpsVpvshpsVpvshpsVT
1 vshpsVpvshpsVpvshpsVpvshpsVpvsh
1 ul=ul-411.6
1 ul=ul+2369.9
1 ul=22639.6
1 uj=julian day,
1 u=-sd*slat/(clat*cd):
1 tw,n4;"Lon: "+K$+" Lat: ";l$
1 tt,n5;"THAT'S THE SUN"'J$:
1 tt,n5;"THAT'S AN OLD POSITION"'J$:
1 tt,n5;"NOTHING THERE - TRY AGAIN":
1 tt,ZE;F$;F$:
1 tt,ZE;"To continue, press one of"'" S,I,O,M P or E(xplanation)":
1 tt,ZE;"Press ""E"" for explanation":
1 t=((uj-2415020
1 t333)/Q9):
1 t$="value of scalar: ":
1 t$="."+t$(TW
1 szachownica
1 sy=(sy-zy)/85
1 sx=(sx-zx)/170
1 suma=suma+pkt+1000
1 slow print routine
1 sl=-rs/n(FT,N3):
1 set=set-T4*
1 sd=sine*sl:
1 scl=f(NUM):
1 s=a(i,k)/a(k,k):
1 s=(s+s1*t+s2*t*t)
1 s333+2.17147
1 russ C0u
1 robot2 B$.$./
1 rise=rise-T4*
1 rise=-lon/FT+12
1 rednia po ";
1 rd=n(FT,q):
1 rd=n(FT,Q):
1 r=(x*x+y*y)^.5
1 r2=r2+1900
1 r1=r1+1900
1 r$=r$+z$(b,
1 pos;z$''" Is this what you want? (Y/N)":
1 pos;nn;" and ";nx:
1 onej trudno
1 obliczenia
1 o$="Your second choice? ":
1 o$="Your first choice? ":
1 o$="Your choice?":
1 o$="Year? (1800,2200): ":
1 o$="Timestep required? ":
1 o$="Time-GMT? (0000-2359):":
1 o$="Required scale?: ":
1 o$="Please make your choice":
1 o$="Month? (1,12): ":
1 o$="Longitude? (-180,180) ":
1 o$="Latitude? (-90,90) ":
1 o$="Day of month? (1-"+
1 o$=" ":
1 nych cyfr, w drugiej"''"za
1 num=N4*(alp-FT*lhr):
1 nstruction
1 norise=ON:
1 nn=-TW*NT:
1 nm=nm-.8611
1 nm=151.950429
1 nlist=9140
1 nie od punkt
1 n5;"S to change the scale"''
1 n5;"P sends the display to A";
1 n5;"O for motions of all bodies"
1 n5;"M to return to main menu"
1 n5;"I for information on any";
1 n4,ZE;"Press:"'';
1 n3;"generally the same as local"'" time (even at Greenwich)."
1 n3;"1 To follow a single body"''
1 n3;"0 For all 10 bodies"
1 n$="HALLEY"
1 mx=D(mon):
1 mx+"): ":
1 mm=mm+ev-ae-a3:
1 mm=lm-.111404
1 mas=.98564733
1 lu=1012395
1 lu=((ol+ul)/m)-(
1 lu1=1203586
1 lst=lst-24
1 lst1=(lc1-ON)*(T4*days+gmt)+gmt+b7
1 losowanie liczb
1 lne cyfry mog
1 lm=lm+ev+ec-ae+a4:
1 lm=lm+.6583
1 lm=13.1763966
1 line=line+ON
1 line,ON;n$;:
1 lhr+"hr ":
1 le. Oto rozwi
1 l=(ol-lu1)/m
1 l1=((ol-d)-lu)/m
1 l$=l$+d$(N3-TW*(lat>ZE))
1 kursor, wpisywanie liczb
1 k+" =OPxOQ=OPx(OP+"+
1 k$=k$+d$(N4-TW*(lon>ZE))
1 j;". ";p$(i):
1 inf. o rozwi
1 i+"=2x6 so PN="+
1 i$(a)=i$(a,2
1 h$(j)=" ":
1 h$(i)=" ":
1 gmt=hr+mn/SX
1 g=y+z+c-621049
1 fr2 CX
1 f=(ol-n)/m:
1 f$-zz)*sz+m
1 f$'"zakres x ?"'"od : ";zx,"do: ";sx,"zakres y ?"'"od :";zy,"do:";sy'"zakres z ?"'"od :";zz,"do :";sz'"dziedzina? (dla x i y rzeczywis-tych)";
1 enie zawsze przed dodawaniem"''"lub odejmowaniem."
1 eniach zachowano"''"normaln
1 de poprawne"''"rozwi
1 days=days+day:
1 days=days+d(i):
1 day+" "+m$(
1 d$''" czy dane O.K.?";
1 czenie"''"komputer oceni Twoj
1 cl=-rc/n(FT,N3)
1 ci,"''"wymagaj
1 ce jednak nieco innej"''"taktyki rozwi
1 c(k,l)=c(m,n)
1 c$="STEP 0":
1 bez oceny ko
1 b5=TC0+TC1*b4+TC2*b4*b4:
1 b1=yr-1900
1 b, by powsta
1 aw Karpiesiuk, 1988"
1 a-"''"dniej: liczb jednocyfrowych),"''"kt
1 a(k,k)<1e-8
1 a(k,j)=a(k,j)/z:
1 a(i,r+j)=0
1 a(i,r+i)=1
1 a(i,k)>1e-8
1 a(i,j)=a(i,j)-s*a(k,j):
1 a$="
1 a$(snum)=(h$+g$+f$+e$+d$+c$+b$+x$)
1 a$(an)
1 `hxxx```GGGB
1 ZE;"Age of Moon:";
1 ZE,N4;DAY;" ";M$(
1 ZE,N4;A$;" ";T$
1 ZE,N4;A$;" ";T$:
1 ZE+U$+" DAYS":
1 ZE'''"SOLAR SYSTEM is a program which provides information on the Sun,Moon, planets and Halley's Comet"
1 ZAWITNIK ZEMLI
1 ZA4=ZA4*P1/180
1 Z=CB*SM*SINE+COSE*SB
1 Z8=(X5*C8*C9)+(Y5*S8*C9)+(Z5*S9)
1 Z$=" 0":
1 YR=J3-4715
1 YOU CAN FURTHER INVESTIGATE YOURBIRTHCHART BY STUDYING WHERE EACH PLANET IS PLACED IN YOUR CHART."
1 YA=YN+1900
1 Y=CB*SM*COSE-SINE*SB:
1 Y=(X1*S7)+(Y1*C7)
1 Y8=(Y5*C8)-(X5*S8)
1 Y1=YM+SIZ*((M=11
1 Y0=A0*E1*S3
1 Y! ****";
1 XMD-ON,YMD:
1 XMD,YMD-ON:
1 XMD,YMD+ON:
1 XMD+ON,YMD:
1 X=(X1*C7)-(Y1*S7)
1 X8=-(X5*C8*S9)-(Y5*S8*S9)+(Z5*C9)
1 X1=XM+SIZ*((M=9
1 X0=A0*(C3-E0)
1 X*LSTS>Y*LSTC
1 WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111122222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000
1 WSUNT=WSUN+CSUN
1 WSUN=279.69668
1 WSUN=(WSUN/360
1 WKA LICZBOWA *";
1 WELLINGTON
1 W=W0+(T-T0)*K2*(2.5
1 W5=W5-(W5>360
1 W0=26.1051
1 W P Q R S T U V W@P@Q@R@S@T@U@V@W`P`Q`R`S`T`U`V`W
1 V=-(SR2-SR1)/30
1 V$="SCALE 2":
1 V$="SCALE "+
1 U=(LM-NM)/Q7:
1 U$=" "+U$+" ":
1 Timestep required? U
1 The keynote of your life should be one of Enterprise and Initiative. You need to feel in control and independant to fulfil yourself. YOU NEED SOMETHING SOLID AND LASTING IF YOU ARE TO ACHIEVE FULFILMENT.RECOGNISE THAT YOU ARE PRACTICAL AND A MATERIALIST.SEEK SECURITY. YOU ARE CREATIVE,WITH A LIVELY MIND.YOU LONG TO ESTABLISH RELB
1 TZ1=TZ1-(TZ1>24
1 TW,TW;"Which day of the month?"'''" e.g. 11"
1 TW,TW;"The number you chose was"''
1 TW,TW;"That is not a valid time"'" (Too many minutes)":
1 TW,TW;"That does not lie in the"'" proper range"
1 TW,TW;"Now the month; please give me"'" a whole number between 1 and"'" 12."'''" For example, 10 for October."
1 TW,TW;"Give the date on which the"'" observation will be (or was) made."
1 TW,N3;"What is your longitude (in"'" degrees?"''
1 TW,N3;"What is your latitude (in"'" degrees)?"''
1 TT2=TT2+12
1 TT,ze;"Scale factor? :";
1 TT,ze;"How many copies? (1-9)":
1 TT,ZE;F$;F$;
1 TT,ZE;F$'F$:
1 TT,ZE;'w$:
1 TT,ZE;'J$:
1 TT,ZE;'"Press ""S"" to stop the motions":
1 TT,ZE;"Your choices now are F,I,C and P"'w$:
1 TT,ZE;"Do you wish to send this to the printer? (Y/N)"
1 TN,on;"Latitude:",l$'" Longitude:",k$''" Date",a$''" Time",t$:
1 TN,TW;"3 For information on the moon"
1 TJCS=(JDS-2415020
1 TJC=(JD-2415020
1 THERE ARE MANY EXCELLENT BOOKS AVAILABLE WHICH DEAL WITH THE MEANINGS OF PLANETS, SIGNS AND HOUSES. TRY YOUR LOCAL LIBRARY. MEANWHILE THERE FOLLOWS SOME BASIC INFORMATION IN TABULAR FORM."
1 TD=TD-GMT/T4:
1 TD=TD+DDAY:
1 TD=TD+DAYS+gmt/24
1 TD=(YR-1980
1 T1=6.6460656
1 T1=(DE+29218.5
1 T0=254.26247404
1 T)+DM+1720994.5
1 STAT HEIGHT
1 SOS C0u
1 SOC CQ
1 SLAT=DXA*P1/180
1 SLA=(L5-LA1)*3
1 SLA,SLO;"S"
1 SLA,SLO;"*"
1 SL=-RS/N(FT,N3):
1 SIDT=SIDT-24
1 SIDT=SIDT+(T-(
1 SIDT=.276919398
1 SIDT=(SIDT-(
1 SET=FAC*ST1/(FAC+ST1-ST2)
1 SET=(SET-NUM)/LC1
1 SCIENTIFIC RESEARCH IS INCREASINGLY PRODUCING RESULTS WHICH GIVE CREDENCE TO THE TRADITIONAL ASTROLOGICAL BELIEF THAT THE SUN,MOON & PLANETS DO EXERT INFLUENCE ON THE CHARACTEROF MAN AND UPON TERRESTIAL EVENTS."
1 SB=.089683442
1 S FRANCISCO
1 RISE=RT1*FAC/(FAC+RT1-RT2):
1 RISE=(RISE-NUM)/LC1:
1 RISE))+.001
1 RECLY COMPUTER COMPANY
1 RECLY
1 RECLY
1 RD=N(FT,Q):
1 RASUN=RASUN/15
1 RASUN=RASUN+360
1 RASUN=RASUN
1 RA OF NODE
1 R0=6378.16
1 QQ=X*LSTC+Y*LSTS:
1 QQ,TOP-QQ:
1 Q=N0*(T-T0)+Q0
1 Press any key to continue
1 Please press the appropriate keyJ
1 Plansza tytulowa
1 PNYM RAZEM";
1 PHASE=HF*(ON-
1 P1=3.14159265
1 P++++++++++S-----------P+++++++
1 P+++++++++++++S-------------P++
1 P+++++++++++++++S--------------I
1 P+++++++++++++++S----------------Q
1 P+++++++++++++++S--------------
1 P$=" 0":
1 OQ-td*.0529539
1 ON;"SOLAR SYSTEM";
1 ON;"Objects in inverse video may be visible to the naked eye";
1 ON;"MENU";
1 ON;"IMPORTANT";
1 ON,TW;"ORBITS";
1 ON,N3;"Please choose from:"
1 ON,N3;"At what time do you want to make your observations?"''
1 O=O0-(T-T0)*K2*C1
1 O0=316.1726
1 O H I J K L M N O@H@I@J@K@L@M@N@O`H`I`J`K`L`M`N`O
1 NUSUN=MSUN+CSUN:
1 NUM=.06571
1 NUM=.0657098
1 NSTRUKCJA
1 NST=NST+ON:
1 NORISE=ZE:
1 NORISE=ON:
1 NIJ DOWOLNY KLAWISZ ":
1 N8,ZE;"Today, the Sun: ";
1 N8,ZE;"Moon rises: "'" ";z$''"Moon sets:"'" ";y$
1 N8,TW;"2 For times of sunrise/sunset"
1 N6,ZE;" Object";
1 N6)+" GMT":
1 N6)+" GMT"
1 N4,TW;"1 For full information on any of the planets, or on Comet Halley"
1 N4,N4;day;
1 N3;"This time must be Greenwich"'" Mean Time (GMT), which is not"
1 N3;"2 To follow a pair of bodies"
1 N3,tn;"SKY POSITIONS"
1 N3,on;"The cursor is moved by pressing the 5, 6, 7 and 8 keys."
1 N3,ZE;"The moon does not set today"
1 N3,ZE;"The moon does not rise today"
1 N3,ON;"Please indicate how many orbits you wish to follow"''"Press"''
1 N3);" ";YR;" ";T$:
1 N0=14.61901343
1 N$="THE EARTH":
1 N$;N$''"Distance from the Sun";
1 MSUN=358.47583
1 MSUN=(MSUN/360
1 MORE EXAMPLES? y OR n":
1 MON=J5-ON-12
1 MODIFIED BY I.SHINKIN
1 MG=2.17147
1 MEAN MOTION
1 MEAN ANOMALY
1 MDY=29.5306
1 MATEMAT BU
1 M=(Q-K)*P2
1 M1=E-E0*S3
1 M0=334.0856
1 Lato z radiem
1 LX9=52.625
1 LSUN=nt+180
1 LST=LST1+LON/15
1 LST1=-LON/15
1 LR=WSUNT-180
1 LR=WSUNT+180
1 LOM>(WX9+180
1 LOM=HSUN-(
1 LOM=HSUN+(HSUN<0
1 LOM=HSUN+(
1 LOM<(WX9-180
1 LO3=LO3-(LO3
1 LO1>(W5+20
1 LO1<(W5+110
1 LMOON=LMOON-tw*
1 LM=LM*(LM<SX)
1 LD=LD+(LM=SX):
1 LCST=SIDT+(-W9/15
1 LCST=LCST+24
1 LAM=LAM*P1/180
1 LA=(L9-LA1)*3
1 Krakowiaczek
1 KALKULATBE
1 JxT8D<Dx 8
1 JD>2418450
1 JD=JD+DDAY:
1 JD<2419152
1 JC=JD+J1+1525
1 J2)*.99999
1 J$=" Igrok 2":
1 J$=" Igrok 1":
1 Instrukcja
1 IREK,MAREK,1
1 INCLINATION
1 IE ";z$;" "
1 IE ";
1 I;" ":
1 I;" "
1 I0=98.2322
1 HZR=HA*HPZ*(
1 HYR=HA*HPY*(
1 HXR=HA*HPX*(
1 HT=2446470.96205
1 HT=2418791.6
1 HSUN=HSUN-(
1 HSUN=(LCST-RASUN)*15
1 HQ=.5871018
1 HONSHIPS.INCONSISTENT AT TIMES.CULTIVATE POWER TO LISTEN,RELAX AND ORGANISE.CONCENTRATE! You tend to fear for the future.You are wary of other people's influence. A little less suspicion and a little more hopewill benefit you. YOU THRIVE ON OPTIMISM,BUT TO
1 HOM=58.14389
1 HO=111.84710
1 HN2=HK*HK/
1 HN1=HK*HA^(-1.5
1 HM1=HN1*(JD-HT)
1 HI=162.23927
1 HELLO,BOOT HACKERS !
1 HEE1=HM1+HE*
1 HEE-HE)+HA*HQZ*
1 HEE-HE)+HA*HQY*
1 HEE-HE)+HA*HQX*
1 HE=.967281
1 HE=.9672759
1 H2=(H2-T4*
1 H2=(ALP-LON)/FT+U:
1 H1=T4+(ALP-LON)/FT-U:
1 H1=H1-NUM:
1 H1=(H1-T4*
1 H$=" STEPSIZE"+
1 H$=" "+H$:
1 Geometry 5
1 GMT=HF*T4:
1 G7=(T-DE)*G1+SE:
1 G1=1.0027379093
1 G0=7.5369793E13
1 G @ A B C D E F G@@@A@B@C@D@E@F@G`@`A`B`C`D`E`F`G
1 Four Quarters is bigger
1 Fboot B
1 FT;"THE EARTH":
1 FT,TW;"5 To display the Solar System"
1 FT,N4;"Should I verify the numbers"'" that you give me? (Y/N).":
1 FRACTIONB!
1 Eboot C@
1 ES=1.671834E-02
1 EPOCH YEAR
1 EPOCH DAY.DAY
1 ENIE PLANET ZA DNI= ";ODST
1 ECR=1.675104E-02
1 ECCENTRICITY
1 E0=.0014105
1 DZIE LEPIEJ"
1 DZ3=DZ3*6378
1 DZ2=L5+DZ:
1 DS7=2401500
1 DS6=435025
1 DS5=145825
1 DN=DN+DM+30
1 DAY=JC-J4-
1 DA"''"CYFRA"''"TYLKO"''"RAZ!!"
1 CZ MAGNETOFON ":
1 CSUN=(1.91946
1 COPYRIGHT SOMERVILLE _1983_
1 COMET HALLEYO
1 CLOR=(LO1+55
1 CLOL=(LO1+55
1 CL=-RC/N(FT,N3)
1 CHET 1 Bx
1 CA3>(LO1+54
1 CA3=CA3-(CA3>360
1 CA3<(LO1+1
1 CA2>(LO1+54
1 CA2=CA2+(CA2>360
1 CA2<(LO1+1
1 C$="STEP "+
1 C ";M,"DZIE
1 B<(x@<@< x
1 Alarm po wczytaniu programu
1 ASUN=u*sd*slat+u*cd*clat*(cose*lstS*sl+lstC*cl):
1 ARG PERIGEE
1 ALT=21.313
1 ALT=-41.317
1 ALT=-33.92
1 ALT=-33.88
1 ALT=-31.95
1 ALT=-12.33
1 ALPSUN=ALPSUN-TW*
1 ALPSUN=ALPSUN+
1 ALP=ALP-CI
1 ALP=-ALP+180
1 ALKULATOR"
1 ALA,ALO;"A"
1 AL3;"h ";AL6;"m ";
1 AK -
1 AHTOB ?";V
1 AGE=AGE+MDY
1 AGE=(LM-LS)*MDY/CI:
1 ABY! ******";
1 A9;" EL ";
1 A1;" ";A2;" ";A3;" ";A4;" ";A5;" ";A6
1 A1;" ";A2;" ";A3;" ";A4;" ";A5
1 A0=((G0/(N0^2
1 ?*td+64.975464
1 =q+2.17147
1 =OPxOQ SO "+
1 ;zz;"<z<";sz
1 ;zy;"<y<";sy;
1 ;zx;"<x<";sx;
1 ;n$'''"Distance from the Sun ";cc*
1 ;h;" dny posle ";d3;".";m3;".";r3'
1 ;d3;".";m3;".";r3;" @to ";a$
1 ;T$;" UTC"
1 ;SLO,(SLA-(3
1 ;SLO,(SLA+(3
1 ;CLOR,CLA,2
1 ;CLOL,CLA,2
1 ;"unihtojit| ROBOTA":
1 ;"true that:-"
1 ;"then it is";
1 ;"suitable printer"
1 ;"smaller circle";
1 ;"singular matrix":
1 ;"sets at ";y$'
1 ;"rises at ";z$;
1 ;"no of rows must be equal to no of columns":
1 ;"no of columns of matrix 1 must be equal to no of rows of mat.2":
1 ;"matrix 1 and matrix 2 dimensionsmust be equal"
1 ;"larger circle";
1 ;"inverse:":
1 ;"funkcja ? f(x,y)=";
1 ;"ewe voevat| s ROBOTAMI ?"
1 ;"enter sm for scalar mult."
1 ;"enter s for subtraction"
1 ;"enter new dimensions":
1 ;"enter m for multiplication"
1 ;"enter i for inversion"
1 ;"enter a for addition"
1 ;"dly starta"
1 ;"dly INSTRUKCII"
1 ;"displayed body"
1 ;"centre P = ";i/2
1 ;"centre O = ";i;"cm."
1 ;"budet NEVOZMOJNO":
1 ;"are tangents.";
1 ;"and OP=";5
1 ;"YOUR ANSWER No. ";q$:
1 ;"Wy~itanie":
1 ;"V{ budete ":
1 ;"V{ : ";d1;".";m1;".";r1;" (";e$;")"
1 ;"Vsego xoroqego.":
1 ;"Venus ";z$(4
1 ;"V\BERITE";
1 ;"V\BERITE"
1 ;"V srednem : ";
1 ;"Uran ";z$(8
1 ;"UoSat Oscar 11 Propagation Chart"
1 ;"Umnovenie":
1 ;"To change";
1 ;"The outer planets:URANUS
1 ;"TO FREEZE HOLD A TILL FROZEN PRINTS.TO UNFREEZE PRESS C"
1 ;"THE OPTIONS"''':
1 ;"Sun ";z$(1
1 ;"Subtract the":
1 ;"Slovenie":
1 ;"Slojite nomera":
1 ;"Sat'n ";z$(7
1 ;"STILL LOADING"
1 ;"STEROWANIE";
1 ;"SOFTWARE
1 ;"SELECTED ";CH2
1 ;"SATELLITE IN RANGE AZ ";
1 ;"SAT BELOW HORIZON LAT ";
1 ;"Rasshit{vaem nov{i "'"grafik ? (a/n)"
1 ;"Rasshitat| sovpadenie bioritmov? (a/n) "
1 ;"Punkty: ";
1 ;"Prodoljat| ? (a/n) "
1 ;"Pluto ";z$(10
1 ;"Pekin*":
1 ;"Partner : ";d2;".";m2;".";r2;" (";a$;")"
1 ;"PROGRAMMA":
1 ;"PLEASE WAIT!"
1 ;"PLANET LIFE PRINCIPLE
1 ;"Opredelit| sobpadenie bioritmov s nov{m licom ? (a/n) z = PEHAT~"
1 ;"Opredelit| den| nedeli ? (a/n) "
1 ;"Opredelit| den| nedeli "'"ot nujno
1 ;"Od narozen
1 ;"OT and OS";
1 ;"OSCAR 11 ON ";DM;"/";MN;"/";YN
1 ;"OSCAR 11 AT ";A$;" ON ";DM;"/";MN;"/";YN
1 ;"OBUHENIY USTNOMU SHETU do 10":
1 ;"Niestety,
1 ;"Nept ";z$(9
1 ;"Najmite knopku":
1 ;"Najmite A dly SLOJENIY"
1 ;"NUSELECT M . +2 MIN C"
1 ;"NUMBER TOO BIG":
1 ;"NUMBER TO START (0-RESTART):";an
1 ;"NQ=";i;"cm":
1 ;"NIE ZAKWALIFIKOWA
1 ;"NEW TIME/CHOICE KEY L STOP A ":
1 ;"NAJMITE L%BU% KLAVIQU":
1 ;"NAJMITE L%BU% KLABIWU":
1 ;"NAGRODA - NIESPODZIANKA NACI
1 ;"Mosco*":
1 ;"Moon ";z$(2
1 ;"Midheaven":
1 ;"Merc ";z$(3
1 ;"Mars ";z$(5
1 ;"MIKROKOMPUTER ""TIMEX 2048""";
1 ;"MIDHEAVEN";
1 ;"MENU? M +2 MIN C"
1 ;"MENU SELECTION"
1 ;"MAM NADZIEJ
1 ;"KURSOREM"
1 ;"KONEC IGR\":
1 ;"KALKULATOR"
1 ;"K O N I E C";
1 ;"Jupit ";z$(6
1 ;"Intelektual|n{
1 ;"Igrok -";Z$;" Ohki - 0 ":
1 ;"Ig1-";P$;" Ohki- 0 Ig2-";Q$
1 ;"Ig1-";P$;" Ohki-";H$;" Ig2-";Q$
1 ;"Ig -";Z$;" Ohki -";H$;" ":
1 ;"If AP=PB";
1 ;"If OT=";4
1 ;"INTERSECTING":
1 ;"INTERNAL POINT";
1 ;"GOOD LUCK!
1 ;"Fiziheski
1 ;"FOR AN";
1 ;"FILE ";r$;" NOT FOUND !"
1 ;"Esli v{ oqibetes|":
1 ;"ENTER THE NUMBER OF YOUR CHOICE"
1 ;"ENTER MENU NUMBER CHOSEN"
1 ;"Delenie":
1 ;"Dal|qe prodoljat|? (a/n) "
1 ;"DX STATE AT ";T$
1 ;"DOSKONALE! Zdoby
1 ;"DO OCENY KO
1 ;"DLY DETE_ 3-5 LET":
1 ;"Computing orbits..."
1 ;"Cairo*":
1 ;"C is the centre";
1 ;"Biologiheskoe sovpadenie (v procentax)":
1 ;"Beacon Dop"
1 ;"Azimuth";
1 ;"Ascendant";
1 ;"Altitude";
1 ;"@to ";a$;" ";d2;".";m2;".";r2
1 ;"======================="
1 ;"9. EUROPE "
1 ;"8. "
1 ;"7. AUST "
1 ;"6. SE ASIA "
1 ;"5. NAMERICA"
1 ;"5 TOL~KO DLY VZROSL\X"
1 ;"4. S AFRICA"
1 ;"4 vse hisla do 99"
1 ;"3. SAMERICA"
1 ;"3 slojn{e hisla do 99"
1 ;"2. NEW MODE"
1 ;"2 legkie hisla do 99"
1 ;"2 dly 2-x IGROKOV"
1 ;"1. "
1 ;"1 hisla do 9"
1 ;"1 dly 1-go IGROKA"
1 ;"0 dly okonhaniy igr{"
1 ;"-------------------------------"
1 ;"-----------"
1 ;"*Tokyo":
1 ;"*Berlin":
1 ;"***********************"
1 ;"**** JESTE
1 ;"*** JESTE
1 ;"* A L G E B R A F *";
1 ;"* *"
1 ;"!mocional|n{
1 ;" grach - ";
1 ;" dly V\HITANIY"
1 ;" Weryfikacja: ":
1 ;" ROZGRYWKACH ZDOBY
1 ;" O C E N A K O
1 ;" NAJMITE 1 DLY PRODOLJENIY IGR\ "
1 ;" NAGRODA - NIESPODZIANKA ";
1 ;" LOADING-PLEASE WAIT "
1 ;" IMPORTANT:Birth Time must be expressed as G.M.T. 1 hour should be deducted for British Summer Time births."
1 ;" Enter as HOURS (2 Digits) MINUTES (2 Digits)":
1 ;" E.G. Enter 7-30 as 0730":
1 ;" 1. PRINT STARGAZER REPORT. 2. REVIEW STARGAZER REPORT. 3. CALCULATE A NEW BIRTHDATE. 4. MORE INFORMATION."
1 ;" ";snum;". ";a$(snum),:
1 ;" VR/& BOOTER B "
1 ;" PRESS ANY LETTER TO CONTINUE ":
1 ;" P O W O D Z E N I A ! ";
1 ;" I N S T R U K C J A ":
1 ;" GEOMETRY 5
1 ;" ENTER THE NAME OF THE PERSON FOR WHOM THE CHART IS BEING PREPARED":
1 ;" ENTER THE LATITUDE OF BIRTH ":
1 ;" ASTROLOGICAL BIRTHCHART DATA
1 ;" ";snum;". ";a$(snum),
1 ;" MC MENU "
1 ;" Enter the YEAR of birth.":
1 ;" Spasibo Vam za igru. ":
1 ;" ENTER THE TIME OF BIRTH":
1 ;" ENTER BIRTH LONGITUDE as DEGREES(3 digits) MINUTES(2 digits":
1 ;" IF LONGITUDE UNKNOWN JUST PRESS ENTER"
1 ;" IF LATITUDE UNKNOWN JUST PRESS ENTER"
1 ;" Enter MONTH of birth IN FIGURES":
1 ;" ENTER NORTH OR SOUTH":
1 ;" ":
1 ;" Rozgrywka: ";
1 ;" PRESS ANY LETTER ":
1 ;" PRESS ANY LETTER "
1 ;" Enter DAY of birth IN FIGURES":
1 ;" ENTER EAST OR WEST":
1 ;" 0 DLY OKONHANIY "
1 ;" INSTRUKCIY "
1 ;" IMPORTANT "
1 ;" ":
1 ;" ":
1 ;" ":
1 ;" ":
1 ;" "
1 ;" ":
1 ;" "
1 ;" ";:
1 ;" ";
1 ;" Czy cyfry mog
1 ;" "
1 ;" PODAJ SWOJE IMI
1 ;" ":
1 ;" "
1 :8<\^^__O/o
1 : ";ODST;"
1 : ";
1 94.326675,546.15335,-.000175,.0224925,0,0,75.273925,690.11493,.8141,.00035,326.7034,2.74735,.0006225,4.4481,-.02385,0,574.86805,362.28265,0,.6216,0,0,98.79435,283.80348,0,0,272.3861,3.490025,.000775,42.86695,0,0,
1 896.1896,89997.625,-.000375,.0418775,-.0001025,0,2.5000003,253.05208,4.29795,.001125,0,0,0,0,0,0,255.69845,373681.29,0,.514035,.00005,0,.967745,71.884375,.9257,.0003,117.86485,2.963,.000425,17.5072,.00465,-.000025,531.50805,146294.5,.003225,.01705,-.0001,0,1.80833,135.96048,1.270475,-.003475,189.44913,2.249625,.00105,8.484075,.0025,0,798.82325,47849.645,.00045,.233275,.00025,0,3.809225,713.5794,2.674425,.000325,121.9661,1.927475,0,4.625825,-.0017,.000025,563.32083,7586.7301,-.0018,.120825,.0004,0,13.006403,683.19385,1.498575,.00175,248.60845,2.52635,.000875,3.27185,-.01424,0,438.66555,3053.8787,-.00125,.139725,-.000875,0,23.886875,845.76943,2.713,.00245,281.97598,2.1829875,-.000375,6.2313,-.0095,-.00005,181.62205,1070.9470,.0002,.11586,.000075,0,48.04535,245.17888,2.464425,-.002675,183.69275,1.246675,.003275,1.93115,.001575,.0001,Q
1 8(8(8(8(8(;+8+;(;+8+;(;)8(;+8+;+;+;+:(:*:*;+8+;*:+8(8+;*;+8+;*:*:+;+;+8)9)9)9)9)9(9)9)(
1 6cm 13cm 7cm u
1 55jjjjjjjjjjjjjjj
1 50001,15534
1 4SOP B
1 3STAR B!
1 3SOOL B
1 3MATRIC B
1 333*((R0/A0)^3.5
1 2S.LOTO B
1 25 Nov 1984T
1 21.30 GMTP
1 1991 Computer Service, Ltd.
1 1987 I. Wlodarchik (Poland)
1 16384,6912:
1 0F(X,Y) By
1 0*TJC-.000014
1 /k*y))+769
1 /k*l))-4586.4
1 /k*(l1-y)))+148
1 /k*(l-y)))
1 /k*(l-l1)))-125
1 /k*(l+y)))
1 /k*(l+l1-y)))+192
1 /k*(l+l1)))-55
1 /k*(23.452294
1 /i)+" and OT
1 /(HR*HR),HYR*10
1 /(149674000
1 ."''''" Niezale
1 . Natychmiast po uru-"''"chomieniu programu trzeba wybra
1 -pl1 B
1 -J2*J2))+P1/2
1 -ECR*ECR)/(1
1 -DZ3*DZ3))+P1/2
1 -DXA*DXA))*180
1 -BIO rus B
1 -B5*B5))))*57.3
1 -(W9-LO1)*3
1 -(W5-LO1)*3
1 -(MON>TW):
1 -(HSUN>360
1 -"''"wki - za ka
1 ,ze;"Are these values OK? (Y/N)":
1 ,ze;" When you have finished making changes, press the ENTER key"
1 ,pos;m$''" Is that the month you want?";
1 ,ZE;"I SAID THAT ZERO WAS NOT ALLOWED":
1 ,TW;"The Sun does not set today":
1 ,TW;"The Sun does not rise today":
1 ,TW;"6 To change any or all of the observational parameters: date/time/location"
1 ,TW;"4 For a table of positions of Solar System bodies."
1 ,N3;"Computing Moon orbit..."
1 ,(AGE<HF*mdy):
1 , trwa losowanie ";
1 , & PLUTO P remain in the same Sign for many years andso are thought to have more of aGENERATION-INFLUENCE than an individual one.
1 +T1*2.581E-5
1 +T1*(2400.051262
1 +602961611
1 +36000.76892
1 +35999.04975
1 +2400.0513
1 +1732564379
1 +100.0021359
1 +(LO1-WA5)*3
1 *td-349.383063
1 *b1+b2-HF)/(HH*Q9):
1 *TJCS+1.075E-06
1 *TJCS*TJCS
1 *TJC-1.26E-07
1 *TJC-.00015
1 *TJC+.0003025
1 *TJC*TJC-.0000033
1 *TJC*TJC)*
1 *MSUN))*180
1 *L8))+H9/1000
1 *CU*SU/(CU*CU+.99597032
1 *1.002737908
1 ** reports for inappropiate matrix dimensions **
1 *(lm-ls)/nt)
1 *(h+alpSUN)/
1 *(alpSUN-h)/
1 *(SLAT*Z<ZE)
1 *(SEt-H1)):
1 *(I$="E")+ORB*(I$="O")+RESTORE*(I$="M")
1 *(I$="C")+RESTORE*(I$="F")
1 *(DZ3-LA1))>2
1 *(DZ3-LA1))<174
1 *(DZ3-LA1)),2
1 *(C1*C1)-.5
1 *(1.0000002
1 )=h$(a)+" House No:"+
1 )=-(S2*S0)+(C2*C0*C1)
1 )=-(S2*C0)-(C2*S0*C1)
1 )=(C2*S0)+(S2*C0*C1)
1 )=(C2*C0)-(S2*S0*C1)
1 )="y+z=180":
1 )="OT=OS":
1 )="OT=2 x radius":
1 )="OT+OS=2x
1 )="OP=half radius":
1 )="OP = AP":
1 )="90+y=z":
1 );" in ";z$(a,4
1 );" HOUSE No:";z$(a,18
1 )/36524.25
1 )+(.020094
1 )+"x("+p$(2
1 )+"+2r)
1 ))/(tn^1.5
1 ))+DM+1720994.5
1 (z(i)>y(i)
1 (x/co)*co))
1 (tw*(lm-ls)/Q7-mm)
1 (sx*(RISE-H1)):
1 (rise/T4):
1 (on-SB*SB)
1 (horiz+ON):
1 (hh+lsec):
1 (hf+tn*mg):
1 (hf+hh*re);
1 (hf+hh*rd);
1 (hf+hh*n(FT,N3));
1 (f2+on),f1-256
1 (cl*cl+cose*cose*sl*sl)
1 (a/co)*co))
1 (a(i,r+j)*1e6
1 (Y8/X8))/P0
1 (Y/X))*57.3
1 (XM,YM)=ZE
1 (X5*X5+Y5*Y5+Z5*Z5)
1 (X*X+Y*Y):
1 (TOP/BOT)*180
1 (SX*(num-lm))
1 (SETT+HH):
1 (S5/C5))/P0
1 (RO*V)/V;" j.a."
1 (RO*V)/V;" a.e."
1 (RIST+HH):
1 (RE*RD/N(9
1 (RE*RD*RD*RD):
1 (RE*RD*RD)):
1 (PR*V)/V;" j.a."
1 (PR*V)/V;" a.e."
1 (ON-sd*sd)
1 (NUSUN*P1/180
1 (LMOON/(tw*
1 (LAT-DECD)
1 (LA/P0-LA1)))
1 (L5*P0))))
1 (HH+hr)+t$:
1 (HF+tn*mg);" mag"
1 (HF+tn*age));" days";
1 (HF+tn*AZ)+cc:
1 (HF+num-hr*HH):
1 (HF+amax);"
1 (HF+TD+JD0):
1 (HF+SX*(xy-ld)):
1 (HF+SX*(SET-
1 (HF+SX*(RISE-
1 (HF+HH*re):
1 (HF+HH*rd):
1 (HEE1-HEE)<.0001
1 (H2/T4))/LC1
1 (H1/T4))/LC1:
1 (COSE*SL/CL):
1 (CC+num*CC):
1 (ALPSUN/(TW*
1 (23.452294
1 (23.445788
1 (23.442136
1 (.0040296791
1 (-SLAT*TAND/CLAT)
1 ((lm-ls)/Q7))
1 ((a+s)/360
1 ((a+b+c)/3
1 ((Q-K)*256
1 ((JD-1867216.25
1 ((JC-J4)/Q8):
1 ((JC-122.1
1 ((DS7+2401500
1 ((DS6+435025
1 ((DS5+145826
1 (((z(a)-z(11
1 (((ol+ul)/m)/co))*co
1 ("matrix dimensions:"," (row,column): ");r(1
1 ("matrix ";(m);" dimensions:"," (row,column): ");r(m);",";c(m)
1 'N$;" does not set today":
1 'N$;" does not rise today":
1 'A$;"WENUS"
1 'A$;"MERKURY"
1 'A$;"MARS"
1 'A$;"MAPC"
1 'A$;"BEHEPA"
1 '''"You will be asked to enter some"'"numbers (your longitude, etc.)"''"If you like, I will check each"'"entry with you before I accept"'"it permanently."
1 '''"Please choose a scale factor forthe next plot: this should be a number between 1 and 10"
1 '''" Please give me the number of days between successive plots."
1 '''" 1 Mercury","5 Saturn"
1 '''" Please select a number between ";
1 '''" W wyra
1 ''"NB: At ";t$;" the sun is"'" above the horizon."
1 ''"Maximum altitude: ";
1 ''"Larger numbers give larger scaleplots, giving a less confused appearance to the centre of the display"
1 ''"Brightness:";
1 ''" When you have positioned the cursor over the desired object, press the ENTER key to obtain the name of the object, as well as its distances from the Sun and Earth"
1 ''" The number of pixels jumped by the cursor may be set to 1,4 or 10 by pressing the keys S, I or L respectively."
1 ''" This number should be a non- zero integer between -9,999 and 10,000."
1 ''" First, the year: anytime"'" between 1800 and 2200."''" e.g. 1950"
1 ''" Your answer should be of the form hhmm,";
1 ''" For example, the longitude"'" of Central London is -0.1"'" degrees."
1 ''" Zasady gry s
1 ''" Wpisz cyfry od 1 do 9 tak,"''"by wszystkie dzia
1 ''" 9 Comet Halley"
1 '"The program can be used to find accurate sky positions of any ofthese bodies as seen at any timeand from any point on the Earthssurface."
1 '"POSITION IN THE SOLAR SYSTEM":
1 '"POSITION IN THE SKY:"
1 '"On ";a$;" ";n$'"
1 '"In addition, the program can be made to display the relative positions of the bodies within the Solar System at any time, and to follow their motions as they orbit the Sun."
1 '"Gotowe - naci
1 '" Right Ascension :";z$:
1 '" 4 Jupiter","8 Pluto"
1 '" 3 Mars","7 Neptune"
1 '" 2 Venus","6 Uranus"
1 '" Time of Observation";
1 '" Geographical position";
1 '" For example, the latitude"'" of London is 51.5 degrees."
1 '" Date of Observation";
1 '" Nasza krzy
1 $PLANET B6
1 $!*t*t+f)*15
1 "zaxvatil ZEML%"
1 "stargazer"
1 "operations"
1 "numbers 5-3=2":
1 "nogo robota"
1 "navaw klawi{i 1-5"
1 "kosmiheskogo":
1 "korably i desant":
1 "desant ROBOTOV":
1 "and enter the":
1 "YEAR EG 83 ";YN
1 "Wyberi revim "
1 "Wtoroe ~islo=";B
1 "V\BERITE HISLO",k
1 "TITLE....PROP11":
1 "THIS PROGRAMME CAN GIVE BUT A FRACTION OF THE INFORMATION THATTHE BIRTHCHART CONTAINS. EVEN SOIT DOES GIVE A FAR MORE INDIVIDUAL INTERPRETATION THAN DOES NEWSPAPER & MAGAZINE 'SUN SIGN' ASTROLOGY."
1 "SKOL~KO SNEGOVIKOV ?", l
1 "ROK ";Y,"MIESI
1 "Ploho - ocenka 3"
1 "Perwoe ~islo=";A:
1 "PODSKAJEM ? 1-da 2-net",y
1 "O~enx ploho - ocenka 2"
1 "Ot dat{ ?"'"Den| : ";c'"Mesyc : ";b'"God : 19";a:
1 "OSCAR 11 INFORMATION BOARD ",,,
1 "ODL. OD S
1 "ODL. OD ZIEMI=";
1 "NAME ?";n$
1 "N or S";d$
1 "Molodec - ocenka 5"
1 "MONTH in FIGURES";d$
1 "MONTH ";MN
1 "MERCURY","VENUS","MARS","JUPITER","SATURN","URANUS","NEPTUNE","PLUTO"
1 "MENU 4. PROPAGATION PLOT"
1 "MENU 3. MISSION CONTROL"
1 "MENU 2. AZ EL TRACKING TABLE"
1 "MENU 1. SATELLITE POSITION MAP "
1 "K kakomu hislu ?"'"Den| : ";c'"Mesyc : ";b'"God : 19";a:
1 "January","February","March","April","May","June","July","August","September","October","November","December"
1 "Horo{o - ocenka 4"
1 "Herez skol|ko dne
1 "HOURS & MINS.";d$
1 "Esli ho~e{x poprobowatx e}e raz navmi 1, esli net navmi 2."
1 "Enter the YEAR";d$
1 "Enter P(PRINTOUT)C(CONTINUE)";s$:
1 "ENTER YEAR NUMBER EG. 83"
1 "ENTER WANTED DAY NUMBER"
1 "ENTER POSITION TIME , OR , START AZ EL TRACKING TIME UTC AS HHMM"
1 "ENTER MONTH NUMBER"
1 "ENTER 5 DIGITS";d$
1 "ENTER 5 DIGITS";d$
1 "EG:2 degrees 2 minutes as 00202":
1 "EACH PLANET REPRESENTS A LIFE PRINCIPLE, AND IS POSITIONED IN ONE OF THE 12 SIGNS OF THE ZODIAC AND ALSO IN ONE OF THE 12HOUSES. SIGNS INDICATE THE MANNER IN WHICH THE PLANETARY PRINCIPLE WILL ACT. HOUSES INDICATE THE MAIN AREA OFACTIVITY."
1 "E or W ?";d$
1 "Distance from the earth";
1 "Data rojdeniy vtorogo lica"'"Den| : ";d2'"Mesyc : ";m2'"God : 19";r2:
1 "Data rojdeniy pervogo lica"'"Den| : ";d1'"Mesyc : ";m1'"God : 19";r1:
1 "DAY NUMBER ";DM
1 "DATE?";d$
1 "D=";DE4;"f ";DE6;"' ";DE7;"~"'"PACCTO
1 "D=";D4;"f ";D5;"'"
1 "Czy chcesz jeszcze rozwi
1 "COMET HALLEY"
1 "Biorytmus"
1 "BRIGHTNESS:",dc*
1 "B=";AH;"h ";AM;"m":
1 "B=";AH;"h ";AM;
1 "Astrological factors can have importance in every department of life:Money;Health;Sex;Career. With your computer calculated Birthchart you can investigate the trends in detail with the help of one of the many books onAstrology available. This program can only give an outline of the mass of information which may be gleanedfrom the Birthchart. However this may help you to swim with the Astrological Tide and encourage you to investigatefurther."
1 "AM or PM";e$
1 "ALGEBRAF"
1 "5-3=2 i vvedite":
1 "5+3=8 i vvedite":
1 "12 Escape.Sacrifice. Confinement.Seclusion"
1 "11 Friendship and Association."
1 "10 Public matters and Social standing.Career.Attainment"
1 "''"trzeba 9 r
1 "''"powtarza
1 "'"ODL.ZIEMIA-S
1 " where hh denotes"'" the hour (on a 24 hour clock)"
1 " Midnight=0000 AM, Noon=0000 PM"
1 " Distance from the sun: ";rd;
1 " Distance from earth: ";re;
1 " Declination :";z$''
1 " CHORD THEOREM":
1 " Azimuth:",z$:
1 " Altitude",z$
1 " 9 Travel.Communication. Study.Deep thinking"
1 " 8 Possessions & feeling shared.Legacies.Sex.Death."
1 " 7 Partnership.Marriage"
1 " 6 Work.service.Health"
1 " 5. QUIT THIS PROGRAM"
1 " 5 wybor naibolx{ih ~isel"
1 " 5 Sex.Creativity.Risks. Children.Entertainment"
1 " 4 delenie"
1 " 4 Home and family matters"
1 " 3 umnovenie"
1 " 3 Mental interests. Communication.Relatives"
1 " 2 wy~itanie"
1 " 2 Possessions and Feelings"
1 " 1 slovenie"
1 " 1 Person & Personal matters"
1 " -New Moon"
1 " -Full Moon"
1 " ";z$(n);:
1 " PRESS ANY LETTER TO CONTINUE"
1 " PLANETS":
1 " MAKE EVERY EFFORT TO DISCOVER THE BIRTHTIME AND FIND THE LATITUDE & LONGITUDE FROM AN ATLAS OR GAZETEER."
1 " Enter as DEGREES(3 digits) MINUTES(2 digits)":
1 " DIFFERING TIMES AND PLACES PRODUCE VERY DIFFERENT CHARTS. FOR YOUR CHART TO BE ACCURATE AND GIVE AN APPROPRIATE ANALYSIS YOU DO REQUIRE FULL INFORMATION."
1 " for places lying west of"'" the Greenwich meridian."
1 " corresponding to places in"'" the southern hemisphere."''
1 " and mm the number of minutes past the hour."
1 " The answer you give should"'" lie between the limits -90"'" and +90, negative numbers"
1 " The answer you give should lie between -180 and 180 where negative numbers are"
1 " EMPLOYING KEPLER'S LAWS OF PLANETARY MOTION THE COMPUTER IS NOW CALCULATING THE EXACT POSITIONS OF THE PLANETS AT BIRTH. IT WILL THEN ORIENT THEM ACCORDING TO THE EXACT PLACE AND TIME OF BIRTH. THESE NATAL POSITIONS WILL BE SHOWN IN THE PLAN FORM KNOWN AS A BIRTHCHART OR HOROSCOPE. YOU WILL BE ABLE TO TAKE A PRINTED COPY SHOULD YOU WISH. BY THE MIRACLE OF THE COMPUTER THESE COMPLEX CALCULATIONS WILL TAKE LESS THAN TWO MINUTES."
1 " (WARNING: The Sun is up)"
1 " ENTER AM or PM"
1 " BIRTH TIME AND BIRTHPLACE ARE IMPORTANT"
1 " KEYNOTE":
1 !OSCAR 11B
1 !*t+58E-05
1 z tych wersji."
1 w diagram"''"w taki spos
1 to harmonise & relate"
1 to continue";
1 rises at:",z$;" GMT"'"and sets at:",y$;" GMT"
1 przynajmniej raz"''"poprawnie - na zako
1 proste:"''"trzeba odgadn
1 perpendicular bisector of AB
1 of cyclic quad. SO
1 nie mniej ni
1 krzy-"''"
1 cyclic quad.
1 cikl : ";c;" "
1 cikl : ";b;" "'
1 cikl : ";a;" ";
1 artmetycznych"''"(trzy pionowo i trzy poziomo)"''"o podanych warto
1 altogether confident and never complacent.You genuinely seek improvement. You love to explore,physically, mentally,sexually.You get rest -less quickly,give in too easilyYou are liked for your easy going attitude. YOU ARE A TRADITIONALIST AND DISLIKE CHANGE.YOU ARE SERIOUS, DESIRE SUCCESS,AND DON'T LIKE TOMAKE MISTAKES.YOU ARE THEREFORE RATHER TOO CAUTIOUS AT TIMES. SOCIALLY AMBITIOUS AND ONE WHO SEEKS KNOWLEDGE.SOMETHING OF A LONER,THOUGH YOU CAN WORK WELL WITH OTHERS.YOU MAY LACK PRACTICAL ABILITIES. You pay more attention to your feelings than to logic.You are not too keen on plans,prefering to live day-to-day.Beware of toomuch day-dreaming! Emotionally somewhat changeable,you are imaginative. You value material things and gain great pleasure from possessions. Travel will prove rewarding. Instinctively you have a keen regard for money and things of value. Your financial situation is likely to fluctuate a grea
1 Vam dat{ ? (a/n) "
1 Thinking.Communication"
1 TOTAL INCORRECT: ";v:
1 THEN opp.
1 Sensitive.Protective"
1 Self-control.
1 Scisoft 1983":
1 Scientific.Detached"
1 SO CS=r="+p$(1
1 SINCE OP = OT - PT = 16cm-10cm
1 SINCE OP = OT - PT = "+
1 Run$Style!$
1 REVISION QUESTION
1 Prudent.Cool.Aspiring"
1 Possessively"
1 Personality.Ego"
1 Passionate.Secretive"
1 PRESS KEY
1 PN x NQ = RN x NS
1 OP is called the
1 OP X OQ = OR X OS = OT
1 OF A CYCLIC QUAD. = THE INTERIOR OPPOSITE ANGLE
1 Mirror Group Newspapers 1984
1 MGN 1985":
1 Instinct and ability
1 Inhibition"
1 Improvement.Growth"
1 Harmonious.United"
1 GM4IHJ Jan 84
1 Emotions.Instincts"
1 EXERCISE
1 Deep.Broad Vision"
1 DOBRY! ******";
1 Critical.Detailed "
1 Creative.Joyfull"
1 Correct answer is no. ";k
1 Confused.Sensitive"
1 Conflict.Aggression"
1 C O W A "
1 BARDZO DOBRY! ***";
1 Assertively"
1 Applied energy.
1 Always:-
1 Alert,versatile"
1 AN EXTERIOR
1 ? (a/n) "
1 ?
1 9 cyfr (dok
1 45/36 ?";T
1 30 DAYSC
1 3 razy"''"i rozwi
1 -PLANET B,,
1 - 3A MAPCOM...":
1 , NEPTUNE
1 * WELL DONE *
1 (vert.opp.
1 ";DE6;"' ";DE7;"
1 TOTAL CORRECT: ";u
1 PRESS ANY LETTER TO CONTINUE"
1 TANGENTS FROM AN EXTERNAL POINT ARE EQUAL IN LENGTH
1 GEOMETRY 5
1 AREA OF ACTIVITY
1 MODE
1 STARGAZER REPORT
1 (Russian Version)
1 THEN PRESS ENTER
1 "
1 N
1 R
1 THIS PROGRAMME HAS BEEN PREPARED BY A PROFESSIONAL ASTROLOGER AND MEMBER OF THE ASTROLOGICAL ASSOCIATION *G
1 PRESS ANY LETTER TO CONTINUE"
1 p29
1 * * * * ** * * * * * * V
1
1
1
1
1
1
1